! static text with level and tab
NewLine
cell static,local(@tag)&":"
set tabwidth -1 alignment right
if @tag="_EMAIL"
  set font "GEDCOM Extension Text"
endif


! edit field with value
cell EditValue
set Width #rightMargin$-#rightSkip-#hpos$-22-#cellSkip
if @rec=_BOK
  help "Enter email address"
else
  help local("Enter email address")
endif

if @contents!=""
  cell Multimedia
  set Width #rightMargin$-#rightSkip-#hpos$ offset -1
  set url "mailto:"&@contents image SendEmail border shadowlesssquare
  if @rec=_BOK
    help "Click to send email"
  else
    set help local("Click to send email")
  endif
endif
